Chip 1998 September/CHIP NET Rehberi Eylül 1998.iso/ftp/ADFiles/_setup.1/ADFiles.exe/0/RCDATA/TIFTP/TIFTP.txt

Text File | 1998-04-27 | 13KB | 513 lines

object IFTP: TIFTP
  Left = 167
  Top = 97
  Width = 622
  Height = 428
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'FTP Explorer'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PanelMain: TPanel
    Left = 0
    Top = 0
    Width = 614
    Height = 401
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 1
    BorderStyle = bsSingle
    TabOrder = 0
    object PanelLog: TPanel
      Left = 3
      Top = 329
      Width = 604
      Height = 65
      Align = alBottom
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 0
      object Log: TRichEdit
        Left = 0
        Top = 0
        Width = 600
        Height = 61
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        HideSelection = False
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
        WantTabs = True
        WordWrap = False
      end
    end
    object PanelButtons: TPanel
      Left = 3
      Top = 3
      Width = 604
      Height = 36
      Align = alTop
      BevelInner = bvLowered
      TabOrder = 1
      object btConnect: TRxSpeedButton
        Left = 34
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Connect to current Url'
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = btConnectClick
      end
      object btStop: TRxSpeedButton
        Left = 65
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Break connect and stop work'
        Enabled = False
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = btStopClick
      end
      object btNewConnect: TRxSpeedButton
        Left = 3
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Select new Url for connecting'
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = btNewConnectClick
      end
      object btCDUP: TRxSpeedButton
        Left = 127
        Top = 3
        Width = 30
        Height = 30
        Hint = 'UP to remote directory'
        Enabled = False
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = btCDUPClick
      end
      object btGetList: TRxSpeedButton
        Left = 158
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Refresh list'
        Enabled = False
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = Refresh1Click
      end
      object btQuit: TRxSpeedButton
        Left = 189
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Quit from current Url'
        Enabled = False
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = btQuitClick
      end
      object btAbort: TRxSpeedButton
        Left = 96
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Abort operation'
        Enabled = False
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = btAbortClick
      end
      object Panel1: TPanel
        Left = 413
        Top = 2
        Width = 189
        Height = 32
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object PanelCurrentTime: TPanel
          Left = 78
          Top = 3
          Width = 73
          Height = 26
          BevelInner = bvLowered
          Color = clTeal
          TabOrder = 0
        end
        object PanelTimeWork: TPanel
          Left = 2
          Top = 3
          Width = 73
          Height = 26
          BevelInner = bvLowered
          Color = clTeal
          TabOrder = 1
        end
        object Panel2: TPanel
          Left = 154
          Top = 0
          Width = 35
          Height = 32
          BevelInner = bvLowered
          TabOrder = 2
          object ImageCurrent: TImage
            Left = 2
            Top = 2
            Width = 31
            Height = 28
            Align = alClient
            Stretch = True
          end
        end
      end
    end
    object PanelLocRem: TPanel
      Left = 3
      Top = 39
      Width = 604
      Height = 281
      TabOrder = 2
      object PanelClient: TPanel
        Left = 1
        Top = 1
        Width = 602
        Height = 279
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object PanelLocalBot: TPanel
          Left = 0
          Top = 0
          Width = 286
          Height = 279
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 0
          object PanelLeft: TPanel
            Left = 0
            Top = 0
            Width = 286
            Height = 279
            Align = alClient
            BevelOuter = bvNone
            TabOrder = 0
            object PanelLocal: TPanel
              Left = 0
              Top = 74
              Width = 286
              Height = 205
              TabOrder = 0
              object ListLocal: TListView
                Left = 1
                Top = 1
                Width = 284
                Height = 203
                Align = alClient
                ColumnClick = False
                OnDblClick = ListLocalDblClick
                Columns = <
                  item
                    Caption = 'File'
                    Width = 90
                  end
                  item
                    Caption = 'Size'
                    Width = 80
                  end
                  item
                    Caption = 'Date/Time'
                    Width = 80
                  end
                  item
                    Caption = 'Description'
                    Width = 100
                  end>
                OnCompare = ListLocalCompare
                OnEdited = ListLocalEdited
                OnEditing = ListLocalEditing
                OnEnter = ListLocalEnter
                OnDragDrop = ListLocalDragDrop
                OnDragOver = ListLocalDragOver
                OnMouseDown = ListLocalMouseDown
                PopupMenu = PopupMenu1
                SortType = stBoth
                TabOrder = 0
                ViewStyle = vsReport
                SmallImages = ImagesLocal
              end
            end
            object PanelLocalName: TPanel
              Left = 0
              Top = 1
              Width = 286
              Height = 25
              BevelInner = bvLowered
              TabOrder = 1
            end
            object PanelLocalPath: TPanel
              Left = 0
              Top = 26
              Width = 286
              Height = 26
              BevelInner = bvLowered
              TabOrder = 2
            end
            object ComboLocalPath: TComboBox
              Left = 84
              Top = 52
              Width = 201
              Height = 19
              Style = csOwnerDrawFixed
              ItemHeight = 13
              TabOrder = 3
              OnChange = ComboLocalPathChange
              OnDrawItem = ComboLocalPathDrawItem
            end
            object DriveComboBox: TDriveComboBox
              Left = 1
              Top = 53
              Width = 82
              Height = 19
              TabOrder = 4
              OnChange = DriveComboBoxChange
            end
          end
        end
        object PanelRight: TPanel
          Left = 291
          Top = 0
          Width = 311
          Height = 279
          Align = alRight
          BevelOuter = bvNone
          TabOrder = 1
          object PanelRemote: TPanel
            Left = 0
            Top = 74
            Width = 311
            Height = 205
            TabOrder = 0
            object ListRemote: TListView
              Left = 1
              Top = 1
              Width = 309
              Height = 203
              Align = alClient
              ColumnClick = False
              OnDblClick = ListRemoteDblClick
              Columns = <
                item
                  Caption = 'Flie'
                  Width = 90
                end
                item
                  Caption = 'Size'
                  Width = 70
                end
                item
                  Caption = 'Date'
                  Width = 70
                end
                item
                  Caption = 'Attributes'
                  Width = 80
                end
                item
                  Caption = 'Description'
                  Width = 80
                end>
              OnCompare = ListRemoteCompare
              OnEditing = ListRemoteEditing
              OnDragDrop = ListRemoteDragDrop
              OnDragOver = ListRemoteDragOver
              OnMouseDown = ListRemoteMouseDown
              PopupMenu = PopupMenu2
              SortType = stBoth
              TabOrder = 0
              ViewStyle = vsReport
              SmallImages = ImagesRemote
            end
          end
          object PanelRemoteName: TPanel
            Left = 0
            Top = 1
            Width = 311
            Height = 25
            BevelInner = bvLowered
            TabOrder = 1
          end
          object PanelRemotePath: TPanel
            Left = 0
            Top = 26
            Width = 311
            Height = 26
            BevelInner = bvLowered
            TabOrder = 2
          end
          object ComboRemotePath: TComboBox
            Left = 0
            Top = 52
            Width = 310
            Height = 19
            Style = csOwnerDrawFixed
            ItemHeight = 13
            TabOrder = 3
            OnChange = ComboRemotePathChange
            OnDrawItem = ComboRemotePathDrawItem
          end
        end
        object SplitterLocRem: TRxSplitter
          Left = 286
          Top = 0
          Width = 5
          Height = 279
          ControlFirst = PanelLeft
          ControlSecond = PanelRight
          Align = alRight
          OnPosChanged = SplitterLocRemPosChanged
        end
      end
    end
    object SplitterBottom: TRxSplitter
      Left = 3
      Top = 324
      Width = 604
      Height = 5
      ControlFirst = PanelClient
      ControlSecond = PanelLog
      Align = alBottom
      OnPosChanged = SplitterBottomPosChanged
    end
  end
  object ImagesLocal: TImageList
    Left = 10
    Top = 140
  end
  object ImagesRemote: TImageList
    Left = 576
    Top = 140
  end
  object TimerWork: TTimer
    OnTimer = TimerWorkTimer
    Left = 576
    Top = 172
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 10
    Top = 172
    object Open1: TMenuItem
      Caption = '&Open'
      Default = True
      OnClick = ListLocalDblClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Copy1: TMenuItem
      Caption = '&Copy               '
      OnClick = Copy1Click
    end
    object Move1: TMenuItem
      Caption = '&Move'
      OnClick = Move1Click
    end
    object Paste1: TMenuItem
      Caption = '&Paste'
      OnClick = Paste1Click
    end
    object Delete1: TMenuItem
      Caption = '&Delete'
      OnClick = Delete1Click
    end
    object Rename1: TMenuItem
      Caption = '&Rename'
      OnClick = Rename1Click
    end
    object New1: TMenuItem
      Caption = '&New ...'
      object File1: TMenuItem
        Caption = 'F&ile'
        OnClick = File1Click
      end
      object Folder1: TMenuItem
        Caption = '&Folder'
        OnClick = Folder1Click
      end
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Uploadfile1: TMenuItem
      Caption = '&Upload file'
      OnClick = Uploadfile1Click
    end
  end
  object PopupMenu2: TPopupMenu
    OnPopup = PopupMenu2Popup
    Left = 577
    Top = 205
    object Refresh1: TMenuItem
      Caption = '&Refresh list'
      OnClick = Refresh1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Download1: TMenuItem
      Caption = '&Download file'
      OnClick = ListRemoteDblClick
    end
    object Deletefile1: TMenuItem
      Caption = 'D&elete file'
      OnClick = Deletefile1Click
    end
    object Renamefile1: TMenuItem
      Caption = 'Re&name file'
      OnClick = Renamefile1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Deletefolder1: TMenuItem
      Caption = 'De&lete folder'
      OnClick = Deletefolder1Click
    end
    object Createfolder1: TMenuItem
      Caption = '&Create folder'
      OnClick = Createfolder1Click
    end
  end
end